%% HY 200 - EPISTHMONIKOS YPOLOGISMOS
%% Ergasia 3
%% onomatepwnymo = koutlis anastasios
%% userID = ankoutli
%% AEM =846

 clear all; clc; 
 
%%леяос и: пяосеццисг сумаятгсеым
% %ASKHSH 1
%  disp('MEROS 1');
%  disp('ASKHSH 1');
% syms x
% taylor('-log(1-x)',x,7)
% 
%  syms y
%  taylor('(exp(y)/cos(y))+tan(y)^3',y,7)
% 
%clear all; clc; 
%%ASKHSH 2

% disp('ASKHSH 2');
% 
% clear x;syms x;
%  for n=-3:1:3     
% 
%      
%      int((x^2-4)*exp(-i*n*x),x,-pi,pi)/(2*pi)
%  
%  
%  end


 %clear all; clc; 
%%ASKHSH 3

%  disp('ASKHSH 3');
% 
% b0=(1/6)*(1*exp(-i*2*pi*0/6*1)+1*exp(-i*2*pi*0/6*3)+1*exp(-i*2*pi*0/6*5))
% b1=(1/6)*(1*exp(-i*2*pi*1/6*1)+1*exp(-i*2*pi*1/6*3)+1*exp(-i*2*pi*1/6*5))
% b3=(1/6)*(1*exp(-i*2*pi*3/6*1)+1*exp(-i*2*pi*3/6*3)+1*exp(-i*2*pi*3/6*5))
% b5=(1/6)*(1*exp(-i*2*pi*5/6*1)+1*exp(-i*2*pi*5/6*3)+1*exp(-i*2*pi*5/6*5))
% b2=(1/6)*(1*exp(-i*2*pi*2/6*1)+1*exp(-i*2*pi*2/6*3)+1*exp(-i*2*pi*2/6*5));
% b4=(1/6)*(1*exp(-i*2*pi*4/6*1)+1*exp(-i*2*pi*4/6*3)+1*exp(-i*2*pi*4/6*5));
% b6=(1/6)*(1*exp(-i*2*pi*6/6*1)+1*exp(-i*2*pi*6/6*3)+1*exp(-i*2*pi*6/6*5));
% 
% 
% 
% 
%  f0=b1+b2+b3+b4+b5+b6
% for x=1:1:6
% f(x)=b1*exp(i*2*pi*1/6*x)+b2*exp(i*2*pi*2/6*x)+b3*exp(i*2*pi*3/6*x)+b4*exp(i*2*pi*4/6*x)+b5*exp(i*2*pi*5/6*x)+b6*exp(i*2*pi*6/6*x)
% 
% end

%clear all; clc; 
%ASKHSH 4

%  disp('ASKHSH 4');
% 
% Image=imread('C:\Documents and Settings\user\еПИЖэМЕИА ЕЯЦАСъАР\lena.png')
% imshow(Image)
%  J=fft2(Image);
%  Jblur=J;
%  for i=50:843
% for j=50:843
% Jblur(i,j)=0;
% end
% end;
%  Iblur=ifft2(Jblur);
%  Iblur = Iblur/max(max(abs(Iblur)));
%  imshow(Iblur)
%  
%  Jblur2=J;
%  for i=1:512
% for j=1:512
% if (log(1+J(i,j))>600*(log(1+J(1,1)))) 
%     Jblur2(i,j)=0;
% end
% end
% end;
%  Iblur2=ifft2(Jblur2)/max(max(abs(ifft2(Jblur2))));
%  imshow(Iblur2)
%  H ТИЛч sthn opoia xanoume perissoteres apo tis leptomeries einai konta
%  sto 1
%  Sth deuterh periptwsh opou exoume alla3ei tin anisothta makria apo to
%  1  blepoume perissoteres leptomeries

 
%clear all; clc; 
%%%%%%%%%%%%MEROS 2
%  disp('MEROS 2');
%  disp('ASKHSH 1');
% 
% 
%  x = 0:3
%  z=exp((i*2*pi/4)*x);
%  ypol = polyval(z,x)
%  plot(exp((i*2*pi/4)*x),'-o')
%  axis equal


























